: wwrap ( len -- len)
  \ move to next line if string won't fit on remainder of line
  dup xy? drop + xmax >= if cr then ;
  
: .name ( dict_addr -- )
  \ display name of word at dict_addr
  2+ dup @ 15 and swap 2+ swap wwrap type  2 spaces ;

: words
  cr
  0 \ word count
  latest \ dictionary entry to start from
  begin
    @ dup while
    dup .name
    swap 1+ swap
    begin key? -1 = until 
  repeat
  drop  cr . ." Words found" CR 
;
